Исходный код

Option Explicit
Call ShowVerInfo(ThisObject)

'==============================================================================
' Вывести список всех версий объекта с указанием текущей версии
Sub ShowVerInfo(Obj)

        Dim versions, i
        
        'Получить ссылку на коллекцию версий объекта        
        Set versions = Obj.Versions
        
        'Вывести информацию по каждой версии
        With versions 
            For i = 0 to .Count - 1
                If .Item(i).ActiveVersion Then 
                    ThisApplication.AddNotify _
                        "Версия № " & .Count - i & " " & .Item(i).VersionDescription & " - текущая"
                Else 
                    ThisApplication.AddNotify  "Версия № " & .Count - i & " " & .Item(i).VersionDescription
                End If
            Next
        End With
End Sub
'==============================================================================